Gráfico de los primates en Costa Rica
Grafi_pie<- data.frame("categorie"= rownames(Primates), Primates)
datos<-Grafi_pie[, c("categorie", "species", "individualCount")]
plot_ly(
datos,
labels= ~species,
values= ~individualCount,
type = "pie"
)%>%
layout(
title="Cantidad de registros por especie y porcentaje de primates",
xaxis= list(
showgried= FALSE,
zeroline= FALSE,
showticklabels= FALSE
),
yaxis= list(
showgried= FALSE,
zeroline=FALSE,
showticklabels= FALSE)
)
Crear las capas
#Crear la capa de monos congo
Mo_congo<-
Primates%>%
filter(species == "Alouatta palliata")
#Crear la capa de monos ardilla
Mo_ardilla<-
Primates%>%
filter(species=="Saimiri oerstedii")
#Crear la capa de monos araña
Mo_arana<-
Primates%>%
filter(species =="Atales geoffroyi")
#Crear la capa de monoscarablanca
Mo_carablanca<-
Primates%>%
filter(species =="Cebus capucinus")
alt <- getData(
"worldclim",
var = "alt",
res = .5,
lon = -84,
lat = 10
)
Mapa de registros de presencia
Primates %>%
dplyr::select(stateProvince,
canton,
family,
species,
scientificName,
basisOfRecord,
eventDate,
decimalLongitude,
decimalLatitude) %>%
leaflet() %>%
addProviderTiles(providers$OpenStreetMap.Mapnik, group = "OpenStreetMap") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Stamen Toner Lite") %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Imagenes de ESRI") %>%
addRasterImage(
altitud,
colors = Cl,
opacity = 0.7,
group = "Altitud") %>%
addCircleMarkers(
data = Mo_congo,
stroke = F,
radius = 2,
fillColor = "blue",
fillOpacity = 1,
popup = paste(
Primates$stateProvince,
Primates$canton,
Primates$family,
Primates$species,
Primates$basisOfRecord,
Primates$eventDate,
Primates$decimalLongitude,
Primates$decimalLatitude,
Primates$scientificName,
sep = '<br/>'
),
group = "Mo_congo"
) %>%
addCircleMarkers(
data = Mo_ardilla,
stroke = F,
radius = 2,
fillColor = "red",
fillOpacity = 1,
popup = paste(
Primates$stateProvince,
Primates$canton,
Primates$family,
Primates$species,
Primates$basisOfRecord,
Primates$eventDate,
Primates$decimalLongitude,
Primates$decimalLatitude,
Primates$scientificName,
sep = '<br/>'
),
group = "Mo_ardilla"
)%>%
addCircleMarkers(
data = Mo_arana,
stroke = F,
radius = 5,
fillColor = "black",
fillOpacity = 1,
popup = paste(
Primates$stateProvince,
Primates$canton,
Primates$family,
Primates$species,
Primates$basisOfRecord,
Primates$eventDate,
Primates$decimalLongitude,
Primates$decimalLatitude,
Primates$scientificName,
sep = '<br/>'
),
group = "Mo_arana")%>%
addCircleMarkers(
data = Mo_carablanca,
stroke = F,
radius = 2,
fillColor = "purple",
fillOpacity = 1,
popup = paste(
Primates$stateProvince,
Primates$canton,
Primates$family,
Primates$species,
Primates$basisOfRecord,
Primates$eventDate,
Primates$decimalLongitude,
Primates$decimalLatitude,
Primates$scientificName,
sep = '<br/>'
), group = "Mo_carablanca")%>%
addLayersControl(
baseGroups = c("OpenStreetMap", "Stamen Toner Lite", "Imágenes de ESRI"),
overlayGroups = c("Mo_congo","Mo_ardilla", "Mo_arana","Mo_carablanca", "Altitud")
) %>%
addMiniMap(
tiles = providers$Stamen.OpenStreetMap.Mapnik,
position = "bottomleft",
toggleDisplay = TRUE
)